home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / AACD / Programming / AllPlaton / Unsorted / fft2.AMOS / fft2.amosSourceCode < prev   
Encoding:
AMOS Source Code  |  2000-04-22  |  1.1 KB  |  44 lines
  1. Screen Open 0,640,256,16,$8000
  2. Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 
  3. For A=0 To 15 : Colour A,$111*A : Next 
  4. Pen 15 : Paper 0
  5. Reserve As Chip Work 10,10240
  6. ST=Start(10) : LE=Length(10)
  7. Doke ST,0
  8. Reserve As Work 9,512*4
  9. SPEC=Start(9)
  10. Reserve As Work 8,512*4
  11. DELT=Start(8)
  12. Call Start(6)
  13. X=0 : S=(LE/640)+1
  14. LB=0 : UB=99999999
  15.  Extension_8_0456 "ram:strings25",-10
  16. ST=Start(10) : LE=Length(10)
  17. FOO=0
  18. Do 
  19.    Extension_8_1412 1,ST+FOO,4096,20000
  20. '  For AA=0 To 1023
  21. '    Poke ST+AA,Speek($BFE101)-128 
  22. '  Next  
  23.   Areg(0)=ST+FOO : Add FOO,32
  24.   Areg(1)=SPEC
  25.   Call Start(6)+2
  26.   For Y=0 To 223
  27.     RE= Extension_8_0BE4(SPEC+Y*4)
  28.     IM= Extension_8_0BE4(SPEC+Y*4+2)
  29.     D=Abs(RE)+Abs(IM)
  30. '    D=Sqr(RE*RE+IM*IM)
  31. '    LB=Max(D,LB)
  32. '    UB=Min(D,UB)
  33. '    Turbo Plot X,Y,Min(Max(Ln(D)*1.5,0),15) 
  34.      Extension_8_0388 X,Y,Min( Extension_8_1366(D/8),15)
  35. '    Turbo Plot X,Y/2+128,Min(Qsqr(DD/8),15) 
  36.   Next 
  37. '  Home : Print LB,UL
  38. '  For XX=0 To S-1 
  39. '    Shade Pix X,Speek(ST+XX)/8+240
  40. '    Turbo Draw X,192 To X,Speek(ST+XX)/2+192,15 
  41. '  Next  
  42.   Add X,1,0 To 639
  43. Loop 
  44.  Extension_8_10A8